Dit voorbeeld maakt gebruik van de instructie Beep om drie opeenvolgende geluidssignalen te geven via de luidspreker van de computer.
Dim I For I = 1 To 3 ' Herhaalt lus 3 keer. Beep ' Laat een geluid horen. Next I